home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 August / CD [BM9508].bin / basic / toukou / f_basic / slip.bas next >
Encoding:
BASIC Source File  |  1995-05-24  |  10.2 KB  |  174 lines
  1. 1000 CLEAR:SCREEN@ 0:CONSOLE 16,9:BGM 0:COLOR 7,0,0:CLS
  2. 1010 DIM MYC%(256),PRT%(512),BAC%(576):ST=1
  3. 1020 TP$="":FOR I=0 TO 3:TP$=TP$+CHR$(&HF9):NEXT I
  4. 1030 FOR I=0 TO 3:TP$=TP$+CHR$(&H9F):NEXT I
  5. 1040 ' [[[[[[[[[[[[[[[[[[[[[[[[[ âLâââëâNâ^ÆΦï` ]]]]]]]]]]]]]]]]]]]]]]]]]
  6. 1050 LINE (0,0)-(260,15),PSET,5,BF
  7. 1060 FOR I=0 TO 26:READ PX$,CL,PT$:PX=VAL("&H"+PX$)
  8. 1070 FOR J=0 TO 14:FOR K=0 TO 1:PT=VAL("&H"+MID$(PT$,J*4+K*2+1,2))
  9. 1080 FOR L=7 TO 0 STEP -1
  10. 1090 IF PT=>2^L THEN PSET(PX*20+K*8-L+7,J),CL:PT=PT-2^L
  11. 1100 NEXT L,K,J,I
  12. 1110 FOR I=0 TO 7:GET@A (I*20,0)-(I*20+15,15),PRT%,I*64:NEXT I
  13. 1120 FOR I=0 TO 3:GET@A (I*20+160,0)-(I*20+175,15),MYC%,I*64:NEXT I
  14. 1130 GOTO 1900
  15. 1140 ' [[[[[[[[[[[[[[[[[[[[[[[[[ âXâeü[âWò`é¡éµ ]]]]]]]]]]]]]]]]]]]]]]]]]
  16. 1150 COLOR 7,0:CLS 0:RESTORE 2350
  17. 1160 LINE (40,20)-(477,457),PSET,%2,BF:LINE (45,25)-(471,451),PSET,5,BF
  18. 1170 FOR I=1 TO ST:READ FLR$,WAL$,LIM,MOK,MX,MY,STN$:NEXT I
  19. 1180 FOR Y=0 TO 7:FOR X=0 TO 7:FX=X*54:FY=Y*54
  20. 1190 FLR=VAL(MID$(FLR$,Y*8+X+1,1)):WAL=VAL("&H"+MID$(WAL$,Y*8+X+1,1))
  21. 1200 IF FLR<>9 THEN PUT@A (FX+46,FY+26)-(FX+61,FY+41),PRT%,,3,3,,FLR*64
  22. 1210 IF WAL>6 THEN LINE (FX+40,FY+20)-(FX+45,FY+73),PSET,,BF,TP$:WAL=WAL-7
  23. 1220 IF WAL>3 THEN LINE (FX+40,FY+20)-(FX+93,FY+25),PSET,,BF,TP$:WAL=WAL-4
  24. 1230 IF WAL>1 THEN LINE (FX+40,FY+20)-(FX+45,FY+73),PSET,%2,BF:WAL=WAL-2
  25. 1240 IF WAL>0 THEN LINE (FX+40,FY+20)-(FX+93,FY+25),PSET,%2,BF
  26. 1250 FP(X,Y)=FLR:NEXT X,Y
  27. 1260 SYMBOL (500,25),"é┬éΘéΘé±é╧üB",1.5!,2,4
  28. 1270 LOCATE 62,4:PRINT "Floor";ST:LOCATE 63,5:PRINT STN$
  29. 1280 LOCATE 62,9:PRINT "[A] èèéΘ":LOCATE 62,10:PRINT"[B] ò╟îÜé─éΘ"
  30. 1290 GOSUB 1880
  31. 1300 ' [[[[[[[[[[[[[[[[[[[[[[[[[[ âüâCâôé┼é╖é╠ ]]]]]]]]]]]]]]]]]]]]]]]]]]
  32. 1310 MD=0:GET@A (MX*54+46,MY*54+26)-(MX*54+93,MY*54+73),BAC%
  33. 1320 PUT@A (MX*54+46,MY*54+26)-(MX*54+93,MY*54+73),BAC%
  34. 1330 PUT@A (MX*54+46,MY*54+26)-(MX*54+61,MY*54+41),MYC%,MATTE,3,3,5,MD*64
  35. 1340 WHILE PAD(1)<>0:WEND
  36. 1350 CTR=PAD(1):IF CTR MOD 2<>0 THEN MD=CTR\2:GOTO 1320
  37. 1360 IF PTRIG(1)=1 THEN COLOR 7,%2:GOTO 1430
  38. 1370 IF PTRIG(1)=2 THEN COLOR 7,5:GOTO 1680
  39. 1380 IF PTRIG(1)=4 THEN GOTO 1810
  40. 1390 GOTO 1350
  41. 1400 ' {{{{{{{{{{{{{{{{{{{{{{{{{{ é┬éΘéΘé±èèéΘ }}}}}}}}}}}}}}}}}}}}}}}}}}
  42. 1410 IF FP(MX,MY)>2 AND FP(MX,MY)<7 THEN MD=FP(MX,MY)-3
  43. 1420 IF FP(MX,MY)=2 THEN 1790
  44. 1430 PX=-((1+2*(MD=3))*(MD MOD 2=1)):PY=((1+2*(MD=2))*(MD MOD 2=0))
  45. 1440 IF POINT(MX*54+PX*27+70,MY*54+PY*27+50)=0 THEN 1510
  46. 1450 PUT@A (MX*54+46,MY*54+26)-(MX*54+93,MY*54+73),BAC%
  47. 1460 MX=MX+PX:MY=MY+PY
  48. 1470 GET@A (MX*54+46,MY*54+26)-(MX*54+93,MY*54+73),BAC%
  49. 1480 PUT@A (MX*54+46,MY*54+26)-(MX*54+61,MY*54+41),MYC%,MATTE,3,3,5,MD*64
  50. 1490 PLAY "T120V15@7L64O5GCR64":GOTO 1410
  51. 1500 ' {{{{{{{{{{{{{{{{{{{{{{{{{ èèéΘé╠Ä~é▄é┴é╜ }}}}}}}}}}}}}}}}}}}}}}}}}
  52. 1510 PLAY "T120V15@128O3E16"
  53. 1520 IF FP(MX,MY)=1 AND MOK=0 THEN 1760
  54. 1530 IF FP(MX,MY)<>0 THEN 1580
  55. 1540 LINE (MX*54+46,MY*54+26)-(MX*54+93,MY*54+73),PSET,5,BF
  56. 1550 GET@A (MX*54+46,MY*54+26)-(MX*54+93,MY*54+73),BAC%
  57. 1560 PUT@A (MX*54+46,MY*54+26)-(MX*54+61,MY*54+41),MYC%,MATTE,3,3,5,MD*64
  58. 1570 MOK=MOK-1:FP(MX,MY)=9:PLAY "T120V10@15L64O5CDEFGAB"
  59. 1580 IF FP(MX,MY)<>7 THEN 1660
  60. 1590 FOR X=0 TO 7:FOR Y=0 TO 7
  61. 1600 IF FP(X,Y)=7 AND (X<>MX OR Y<>MY) THEN WX=X:WY=Y
  62. 1610 NEXT Y,X
  63. 1620 PUT@A (MX*54+46,MY*54+26)-(MX*54+93,MY*54+73),BAC%:MX=WX:MY=WY
  64. 1630 GET@A (MX*54+46,MY*54+26)-(MX*54+93,MY*54+73),BAC%
  65. 1640 PUT@A (MX*54+46,MY*54+26)-(MX*54+61,MY*54+41),MYC%,MATTE,3,3,5,MD*64
  66. 1650 PLAY "T120V15@68O5L64CC+DD+EFF+GG+A"
  67. 1660 COLOR 7,0:GOTO 1350
  68. 1670 ' {{{{{{{{{{{{{{{{{{{{{{{{{{{ ò╟îÜé─éΘéµ }}}}}}}}}}}}}}}}}}}}}}}}}}}
  69. 1680 PX=-((1+2*(MD=3))*(MD MOD 2=1)):PY=((1+2*(MD=2))*(MD MOD 2=0))
  70. 1690 IF POINT(MX*54+PX*27+70,MY*54+PY*27+50) OR LIM=0 THEN 1740
  71. 1700 FX=(MX-(MD=1))*54:FY=(MY-(MD=2))*54:LIM=LIM-1:IF MD MOD 2=1 THEN 1720
  72. 1710 LINE (FX+40,FY+20)-(FX+93,FY+25),PSET,%2,BF:GOTO 1730
  73. 1720 LINE (FX+40,FY+20)-(FX+45,FY+73),PSET,%2,BF
  74. 1730 PLAY "T120V10@67O4B8":GOSUB 1880
  75. 1740 COLOR 7,0:GOTO 1350
  76. 1750 ' [[[[[[[[[[[[[[[[[[[[ éΓé┴é╥ü[ü⌠âXâeü[âWâNâèâA ]]]]]]]]]]]]]]]]]]]]
  77. 1760 PLAY "T120V15@6L16O4AB>C+8<AB>C+<BAG+F+BG+EA8"
  78. 1770 ST=ST+1:FOR I=0 TO 9999:NEXT I:IF ST=11 THEN 1980 ELSE 1150
  79. 1780 ' [[[[[[[[[[[[[[[[[[[[[[[[ îèé╔ùÄé┐é┐éßé┴é╜ ]]]]]]]]]]]]]]]]]]]]]]]]
  80. 1790 PLAY "T200V12@68L8O2G-F-E-D-C-1":GOTO 1150
  81. 1800 ' [[[[[[[[[[[[[[[[[[[[[[[[[ âüâjâàü[é┼é╖é╠ ]]]]]]]]]]]]]]]]]]]]]]]]]
  82. 1810 LOCATE 64,16:PRINT"[A] éΓéΦÆ╝é╖":LOCATE 64,17:PRINT"[B] â^âCâgâïé╓"
  83. 1820 LOCATE 64,18:PRINT"[RUN] âLâââôâZâï"
  84. 1830 PLAY "T120V12@43O4C32":WHILE PTRIG(1)=4:WEND
  85. 1840 IF PTRIG(1)=1 THEN 1790
  86. 1850 IF PTRIG(1)=2 THEN PLAY "T120V12@43O4C32":GOTO 1900
  87. 1860 IF PTRIG(1)=4 THEN CLS 1:WHILE PTRIG(1)=4:WEND:GOTO 1350
  88. 1870 GOTO 1840
  89. 1880 LOCATE 64,12:PRINT "ûéû@ÄcéΦ";LIM;"ë±":RETURN
  90. 1890 ' [[[[[[[[[[[[[[[[[[[[[[[[[ â^âCâgâïé┼é╖é╠ ]]]]]]]]]]]]]]]]]]]]]]]]]
  91. 1900 COLOR 7,0:CLS:SYMBOL (100,100),"é┬éΘéΘé±é╧üB",5,5,4
  92. 1910 LOCATE 23,12:PRINT "Select Floor and Press RUN Button"
  93. 1920 LOCATE 35,14:PRINT "Floor"
  94. 1930 LOCATE 44,23:PRINT "émé`ü{élü{éoé`ü@éoéÆéàéôéàéÄéöéô"
  95. 1940 WHILE PTRIG(1)<>4:FOR I=0 TO 500:NEXT I:LOCATE 40,14:PRINT ST
  96. 1950 ST=ST+(PAD(1)=3)*(ST<10)-(PAD(1)=7)*(ST>1):WEND
  97. 1960 PLAY "T120V10@14L24O4CE-G>C<GE-R2":GOTO 1150
  98. 1970 ' [[[[[[[[[[[[[[[[[[[[[[[ âGâôâfâBâôâOé┼é╖é╠ ]]]]]]]]]]]]]]]]]]]]]]]
  99. 1980 COLOR 7,0:CLS:PUT@A (160,80)-(175,95),MYC%,MATTE,20,20,5,128
  100. 1990 PLAY "T120V13@1L8O4GGGGF16E16FFFFF4.GEDEFD4.CC2."
  101. 2000 RESTORE 2660:FOR I=0 TO 5:READ SEC$:ML=LEN(SEC$)/4:X=(640-ML*33)/2
  102. 2010 FOR J=0 TO ML-1:CC$=KNJ$(VAL("&H"+MID$(SEC$,J*4+1,4)))
  103. 2020 SYMBOL (33*J+X,I*64+64),CC$,2,2,7,,,8:PLAY "T200V15@75O4C16"
  104. 2030 NEXT J:FOR J=0 TO 1000:NEXT J,I
  105. 2040 PLAY "T120V13@19L8O5FEDFEDC+ED4<A4>D4"
  106. 2050 WHILE PTRIG(1)=0:WEND:ST=10:GOTO 1900
  107. 2060 ' [[[[[[[[[[[[[[[[[[[[[[ âLâââëâNâ^âfü[â^é╜é┐ ]]]]]]]]]]]]]]]]]]]]]]
  108. 2070 DATA 0,6,0000000000000000000038007C024E1646FE4EFE7C003800000000000000
  109. 2080 DATA 0,0,0000000000000000380044028215B1E9B901B10183FE4400380000000000
  110. 2090 DATA 1,2,00000EE03AB8628C7EFC428442847EFC428442847EFC428442847EFC0000
  111. 2100 DATA 1,0,0000010005401D7001003D783D7801003D783D7801003D783D7801000000
  112. 2110 DATA 2,0,00003FFC7FFE7FFE7FFE7FFE7FFE7FFE7FFE7FFE7FFE7FFE7FFE7FFE3FFC
  113. 2120 DATA 3,1,00000000018003C007E00FF00FF003C003C003C003C003C003C001800000
  114. 2130 DATA 4,1,0000000000000000006000701FF83FFC3FFC1FF800700060000000000000
  115. 2140 DATA 5,1,00000000018003C003C003C003C003C003C00FF00FF007E003C001800000
  116. 2150 DATA 6,1,000000000000000006000E001FF83FFC3FFC1FF80E000600000000000000
  117. 2160 DATA 7,2,000007C01EF03D7800006BAC739C77DC739C6BAC00003D781EF007C00000
  118. 2170 DATA 7,0,07C01830210842847FFC94528C6288228C6294527FFC42842108183007C0
  119. 2180 DATA 8,1,03C00FF00FF01FF81FF80FF007E003C0000003C003C00180000000000000
  120. 2190 DATA 8,3,0000000000000000000000000000381C1E780C30042018183FFC1FF80000
  121. 2200 DATA 8,6,000000000000000000000000081004202004700E60060000000000000000
  122. 2210 DATA 8,7,000000000000000000000000000000000180000008100660000000000340
  123. 2220 DATA 9,1,07F00FF81FF81F981F180C20002018001800100000000000000000000000
  124. 2230 DATA 9,3,0000000000000000000000000000000007800CE008E0000013F03FF80000
  125. 2240 DATA 9,6,000000000000006000E003D007D007E00040030007000E000C0000000000
  126. 2250 DATA 9,7,0000000000000000000000000800000000000000000001C0000000000740
  127. 2260 DATA A,1,03C00FF00FF01FF81E781428024002400000000000000000000000000000
  128. 2270 DATA A,3,0000000000000000000000000000381C1C380FF007E018183FFC1FF80000
  129. 2280 DATA A,6,000000000000000001800BD00DB005A023C4700E60060000000000000000
  130. 2290 DATA A,7,0000000000000000000000000000000000000000081007E00000000002C0
  131. 2300 DATA B,1,0FE01FF01FF819F808F80430040000180018000800000000000000000000
  132. 2310 DATA B,3,0000000000000000000000000000000001E00730071000000FC81FFC0000
  133. 2320 DATA B,6,000000000000060007000BC00BE007E0020000C000E00070003000000000
  134. 2330 DATA B,7,0000000000000000000000000010000000000000000003800000000002E0
  135. 2340 ' [[[[[[[[[[[[[[[[[[[[[[[ âXâeü[âWâfü[â^é╜é┐ ]]]]]]]]]]]]]]]]]]]]]]]
  136. 2350 DATA 0999099999999999999499959999999999999999999999999999999912990996
  137. 2360 DATA 0000000000000000000000000000000000000000000000000000000000000000
  138. 2370 DATA 1,3,3,7,ÅÇö⌡æ╠æÇé╛éµ
  139. 2380 DATA 9199999999999999999999999099999999999999999999999999999990999990
  140. 2390 DATA 0000000000000000120000011000000000000000000000000000000000000000
  141. 2400 DATA 3,3,0,7,é▄é╛é▄é╛é┐éσéδéó
  142. 2410 DATA 9999999999999999999919999999999999999999999999999999979997990999
  143. 2420 DATA 0000000000000000003111200020002000200020002000200011232000000020
  144. 2430 DATA 1,1,7,7,î┬Ä║é≡ì∞éδéñ
  145. 2440 DATA 9979999999999999999999909959999999999993999999919999999909999997
  146. 2450 DATA 0020000002200000022000000211101100211100003111101100000000000000
  147. 2460 DATA 7,2,1,0,ûεê≤é¬âWâââ}
  148. 2470 DATA 0999999099999999299999999999996991999999999999999999999909999990
  149. 2480 DATA 0000000000000000000000000000000001200000010000000000000000000000
  150. 2490 DATA 2,4,7,5,é═é╢é▀é╠éPòα
  151. 2500 DATA 7999999919999999999909997999999999099999990999999999999999999999
  152. 2510 DATA 0000000011111112111118220000072211200722002007220001120200000000
  153. 2520 DATA 6,3,1,3,é▄éφéΦé▒é±é╢éßéª
  154. 2530 DATA 9999999999999999990999999999999999999909999999994999995909999991
  155. 2540 DATA 0000000000000000000000000020000001100003000000020000000200000001
  156. 2550 DATA 3,3,6,3,éáéφé─é╚éóé┼é╦
  157. 2560 DATA 2999999299999999199099909979969999999999999997999999999929099992
  158. 2570 DATA 0002000000020000000110010030000000111000000000000000000100200000
  159. 2580 DATA 2,3,5,5,é▓é┴é┬é±é▒
  160. 2590 DATA 9999999099999999970999919999999099999990079999999999999999999990
  161. 2600 DATA 0000000003111110004000040240000413111111000000000200000001111110
  162. 2610 DATA 6,6,7,5,éφü[é╒üòéφü[é╒
  163. 2620 DATA 9999997999999999999999999999999999499999999999999002991999979999
  164. 2630 DATA 0000000000000000003111110020000000200000002000000000000000020000
  165. 2640 DATA 6,2,0,1,âëâXâgé╛âKâôâoüI
  166. 2650 ' [[[[[[[[[[[[[[[[[[[[[ âGâôâfâBâôâOâfü[â^é╜é┐ ]]]]]]]]]]]]]]]]]]]]]
  167. 2660 DATA 24442424244B4A7548222472382B24442431243F253F256B2548
  168. 2670 DATA 253F256B2548244F24662443242F246A24484A7548222472332B2431246B
  169. 2680 DATA 4366244B244F3F4B21223B652122495B2122244F2435245F244A2449242C212621262126
  170. 2690 DATA 215624332126212621262433246C244324462126212621263A5B4B2521262126212621292157
  171. 2700 DATA 243324262437244638454265244E3A5B4B2524723C6A244B467E246C243F253F256B2548244F
  172. 2710 DATA 382A24724D6E2448243724464C42355C24723865244B2437243F244E24472437243F2123
  173. 2720 ' é┬éΘéΘé±é╧üB--------------------------------- Programed By NA+M+PA
  174.